home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #3 / Amiga Plus CD - 2002 - No. 03.iso / AmiSoft / Dev / Lang / Nano.lha / nano / prog / clock.n < prev    next >
Encoding:
Text File  |  2002-05-22  |  970 b   |  37 lines
  1. int monday; int tuesday; int wednesday; int thursday; int friday;
  2. int saturday; int sunday; int n;
  3.  
  4. sunday = 0; monday = 1; tuesday = 2; wednesday = 3; thursday = 4;
  5. friday = 5; saturday = 6; n = 0;
  6.  
  7. print /c;
  8. lab start;
  9.  
  10. time;
  11. _year = _year + 1900;
  12. inc _month;
  13. locate 2 3; print /s30; locate 2 3;
  14.  
  15. if _wday = sunday; printvn sunday; goto ok; endif;
  16. if _wday = monday; printvn monday; goto ok; endif;
  17. if _wday = tuesday; printvn tuesday; goto ok; endif;
  18. if _wday = wednesday; printvn wednesday; goto ok; endif;
  19. if _wday = thursday; printvn thursday; goto ok; endif;
  20. if _wday = friday; printvn friday; goto ok; endif;
  21. if _wday = saturday; printvn saturday; endif;
  22.  
  23. lab ok;
  24.  
  25. print /s;
  26.  
  27. if _day < 10; print n; endif; print _day, "-";
  28. if _month < 10; print n; endif; print _month, "-";
  29. print _year, /s2;
  30.  
  31. if _hour < 10; print n; endif; print _hour, ":";
  32. if _min < 10; print n; endif; print _min, ":";
  33. if _sec < 10; print n; endif; print _sec, /n;
  34.  
  35. wait 49 tick;
  36. goto start;
  37.